home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / extraurb / mi022.dir / 00027_Script_27 < prev    next >
Text File  |  1983-01-30  |  2KB  |  79 lines
  1. --hilite script----
  2. --on mouseUp
  3. --  global rsc, a_blocca, a_scrolla
  4. --  if a_blocca = false then
  5. --    set rsc to 1
  6. --    set a_blocca = 1
  7. --    set a_scrolla = 0
  8. --    
  9. --    duplicate cast 120 , 499
  10. --    vap "su", 27, "nobeep"
  11. --    
  12. --    
  13. --    set the visible of sprite 15 to true
  14. --    set the visible of sprite 26 to true
  15. --    set the visible of sprite 33 to true
  16. --    
  17. --    set the visible of sprite 28 to true
  18. --    set the visible of sprite 30 to true
  19. --    
  20. --    set the visible of sprite 32 to true
  21. --    set the text of cast 78 to "Disattiva"
  22. --      
  23. --    set the visible of sprite 29 to false
  24. --           
  25. --    set the text of field 52 to "Interno"
  26. --    set the castnum of sprite 16 to 74
  27. --    dontpassevent
  28. --  else
  29. --    pass
  30. --  end if
  31. --end
  32. --
  33. -------------------
  34. --script 3╛ frame
  35. --on exitFrame
  36. --  global a_blocca
  37. --  if a_blocca = 0 then
  38. --    att_hilite  
  39. --  end if
  40. --  accendimenu
  41. --  Menu 11, 2
  42. --  go to the frame
  43. --end
  44. --
  45. --on mouseup
  46. --  
  47. --  if the mouseH > 53  and the mouseH <562 and the mouseV >0 and the mouseV < 374 then
  48. --    global a_blocca, a_scrolla, rsc
  49. --    set rsc = 1
  50. --    set a_blocca = false
  51. --    set a_scrolla = false
  52. --    
  53. --    ---------------------------------------------------------testo introduttivo se c'Φ
  54. --    duplicate cast 121, 499
  55. --    vap "su", 27, "nobeep"
  56. --        
  57. --    ---------------------------------------------------------posizione
  58. --    set the text of cast 52 to "  "
  59. --    ---------------------------------------------------------pianetino
  60. --    set the castnum of sprite 16 to 73
  61. --    ---------------------------------------------------------elem. dida
  62. --    set the visible of sprite 15  to true
  63. --    set the visible of sprite 30  to true
  64. --    set the visible of sprite 26  to true
  65. --    set the visible of sprite 27  to false
  66. --    set the visible of sprite 28  to true
  67. --    set the visible of sprite 29  to false
  68. --    set the visible of sprite 31  to false
  69. --    set the visible of sprite 34 to true
  70. --    set the visible of sprite 32 to true
  71. --    
  72. --    ---------------------------------------------------------Attiva/Disattiva
  73. --    set the text of cast 78 to "Disattiva"
  74. --    set the visible of sprite 32 to false
  75. --  end if
  76. --end
  77. --
  78. ------------
  79.